Introducing the New Way to Shop From Home/Introducing the New Way to Shop From Home (Iceland Foods) (2003).iso/pc/MacStepbyStep.dxr/Internal_400.ls

Text File | 2003-01-01 | 517 b | 35 lines

on startMovie
  global MacOn
  if MacOn = 1 then
    nothing()
  else
    set the exitLock to 1
    startQuitMsg()
    set the keyDownScript to "myNoEscape"
  end if
  set the keyDownScript to "myNoEscape"
end

on quitMsg
  go(1, "closing")
end

on myNoEscape
  global gList1Prod, gList2Prod, gList3Prod
  if the keyCode = 53 then
    go(1, "closing")
  end if
  if the keyCode = 36 then
    nothing()
  end if
end

on stopMovie
  global MacOn
  if MacOn = 1 then
    nothing()
  else
    closeQuitMsg()
  end if
end